home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
demdat.arc
/
STKRTE.SBP
< prev
next >
Wrap
Text File
|
1990-06-01
|
1KB
|
66 lines
SBP
╜ STKRTE
╜ Traded Stocks report
╜ Last updated Jan 21, 90
│ _ wrerror
hd1$ "Traded Stocks report at " ( Q,"mmm dd,yy")
hd12$ "Ref: STKRTE"
m1:
┴
} ┴
{@1;"Number of traded stocks: ";&15 ( X,"99999.")
{
Æ ┴
ƒ
{@1;hd1$;@65;hd12$
{@31;"------ Price Data -----"
{@1;"Mkt Sector Symbol Units High Low Latest Cap (m) Earnings P/E"
{@1;"---- -------- --------- ----- ------- ------- ------- -------- -------- ---"
Æ ƒ
₧Exchange.STOCKS
Ç ₧Exchange.STOCKS
{@1;&16Exchange.STOCKS
Æ ₧
} ₧Exchange.STOCKS
{
Æ ₧
╔@1;&4Market.STOCKS;@6;&8Sector.STOCKS;@15;&9Symbol.STOCKS;@25;&5Units.CURRENCY;@31;&7Year_High.STOCKS;
@39;&7Year_Low.STOCKS;@47;&7Price Middle.STOCKS;@55;&8Cap Million.STOCKS;&9Last_Earnings.STOCKS;&4PE ratio.STOCKS
╨Currency.STOCKS Currency.CURRENCY
╡Exchange.STOCKS
m2:
íp$ "d" p
╩ ╦ss14$
╧ Ñ ▀
Æ í
repeat:
┬ms3$,"",135,a%
ía% 0 p wrexit
íp$ "p" p ╣;
wm1
rexit:
ä"menu"
rerror: ╜ On error
res% 0
í & 11 p
┬ms21$,ms22$,130,a%: ía% 1 pres% 1
^ í & 27 p
┬ms11$,ms12$,100,a%:res% 2
^
┬ (( &),"",113,a%:res% 1
Æ í
íres% 1 p yrepeat
íres% 2 p yrexit
É